Disclaimer:

Data Source: NY Times

# 
# state_date <- oh_state %>% group_by(county,date) %>% 
#   summarise(Cases=sum(cases),   Deaths = sum(deaths),                               
#    DeathRate = Deaths/Cases)

Ohio Totals for Cases, Deaths by Date

gg1 <- buckeye %>% ggplot() + 
  geom_col(aes(x=date,y=daily_cases)) + 
     labs(title="Ohio Cases by Date",y="Daily Cases (log10)") + scale_y_log10()
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Removed 1 rows containing missing values (position_stack).
## Warning: Transformation introduced infinite values in continuous y-axis

## Warning: Removed 1 rows containing missing values (position_stack).

Ohio Accumulated Totals for Cases, Deaths by Date and County

buckeye %>% ggplot() +
  geom_col(aes(x=date,y=Cases)) + 
     labs(title="Ohio Accumulated Cases by Date",x="Date",y="Accumulated Cases(log10)") +
     scale_y_log10(labels = scales::comma)